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News and Reviews 

by Mike Dunn, Co-Editor 


At our meeting in April, we had the wonderful opportunity to see and 
play with 2 new Ataris — the 128K 8-bit 130XE shown by Computer 
Palace, and the 512K 16-bit 520ST, thanks to Microbits. They do exist, 
are very nice, and the 130XE is now being sold for about $160 locally. 
The 520ST was a pre-production prototype that works, and is being sold 
to developers. A full report will be done by Kirt Stockwell, but I am 
impressed. The keyboards of both are the same, except the 130XE has 
fewer keys and no keypad. Both have a nice feel, and both units look 
solid and well built. The 520ST has very nice color resolution, about the 
same as an IBM-PC color monitor. The whole effect is like a color 
Macintosh which is much quicker and slightly less resolution in color 
than the monochrome Mac (in monochrome, the Atari has better 
resolution than the Mac). Several members of the local Apple group were 
present, and their main reaction was disbelief. They said if Atari could 
produce them at the price they said, they would buy one! And these were 
the very avid Apple owners. 

As a computer hobbyist for 6 years, I am not easily impressed. I own 
and use 2 Atari's, an IBM-XT, and a NEC lap computer; my wife has an 
Osbourne Exec and an ATR-8000 based CP/M system using mostly 
WordStar, and my two college daughters each have a system — one a 
ATR-8000 CP/M system using Perfect Writer and one an Atari system 
using Letter Perfect. I use my Atari the most, but the 520ST could easily 
become my favorite if I got one. We will keep you posted. 

*********************** 

In the last issue, we had many programs and articles for the programs, 
but not enough room to list them all. This issue will have the rest of those 
listings. You will find FID by Dale Lutz, an ACTION! program for copying 
multiple files on a single disk drive as well as other utilites (very nicely 
done), BlackBird by Paul Freeman (beautifully done scrolling arcade 
game in BASIC similiar to Defender), UserComp from the UK Atari Group 
(a mini-assembler for creating User subroutes) and BIG by Carl Schwartz 
(a PILOT program to teach size value judgements to handicapped 
children). Remember, the articles to all the above programs were in the 
last issue (April '85). 

The above programs (except the PILOT one, which will be on our next 
PILOT disk, ready soon) are on the new Best of ACE #14, as well as 
ListPlus by Paul Freeman allowing you to list inverse and graphic 
characters to an Epson printer. This is based on Greg Menke's program 
in an earlier ACE. The program by Dale LUtz (FID) is in ACTION! and run¬ 
time versions, and the DOS is the new Atari DOS 2.5, a must if you have 
an Atari 1050 drive, a 130XE. It includes a RamDisk and is configuable. 
Also new but not quite ready is the KoalaPad Utility Disk, a two sided 
disk with utility programs for the KoalaPad by Paul Freeman and a title 
screen generator with documtation by Bob Floyd from SPACE (St Paul 
(MN) ACE) — see the article by Graham Smith in the next issue. 


The long awaited updated version of the SoftFinder 2.1 is ready. It 
indexes from July '83 to Dec '84, and covers ANTIC!, ANALOG, 
COMPUTE! and our ACE Newsletter. As previous editions, it is available 
from Valley Soft, 2660 SW DeArmond, Corvallis, OR 97333, both on 
disk ($12)and printed form ($7). A very good reference. 

For educators who want an easy, up to date reference to software for 
a wide number of computers, the Digest of Software Reviews-Education 
(301 W. Mesa, Suite F, Fresno, CA 93704, $124.95), this massive effort 
should meet your needs. Each program in described and exerpts of 
reviews from various publications are given (ACE is one of them!). You 
get about 700 pages of reviews in 5 monthly issues in a special storage 
binder. 


ATR 8000 News 


For those of you who have an ATR 8000 with a Co-Power 88, there 
is a new MS-DOS disk with an ANSI driver, communications patches, 
MS-DOS-CP/M transfer programs, etc. Send your original disk plus $25 
to SWP's new address, 1000 W. Fuller, FT. Worth, TX 76115-3301. They 
also have 3 public domain disks for $10 each, #1 includes MEMBRAIN, 
a Ramdisk program for MS-DOS. 


From Ralph Walden 

The April ACE contained the same error in its description as the original 
error. The cross should be a "greater than" symbol (the "Insert" key). 
The typesetter prints a cross instead. 

Since the release of the ACE-C compiler, there have been two updates 
correcting 3 bugs. The latest update available after the middle of April 
corrects a problem with multiplication. It seems if you multipy two 
numbers and the second number is negative, you'll get an incorrect 
answer. This version also corrects an earlier bug in the graphics!) and 
locateO functions. If you have an early version of ACE-C and the graphics 
function doesn't work right, then pass the mode desired shifted left by 
8 bits. The locateO function should be replaced with cgetc(6). (The new 
ST's use C in its GEM operating system, etc., so you can get a headstart 
by getting the ACE-C — Ed.) 


Our sister club, A.C.E. N.S.W. (GPO Box 4514, Sydney 2001, NSW 
Australia) has produced cloth shoulder patches, approximately 3.5" in 
diameter. The patch is the "official" ACE symbol in cloth with blue, gold 
and red colors. Send $2 each (add $1 for airmail, or $2 airmail for orders 
in lots of 10) to ACE NSW, attention Alex Kwok, secretary-treasurer. 


MAY PASSWORD 
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ATARI NEWS 

The following is an official statement by Atari Corp. in response to 
concern over Atari's cancellation of booth reservations at this summer's 
Consumer Electronics Show in Chicago. 

Since the new Atari Corp. was created, we have attempted to make 
a major statement in the personal computer industry. We have developed 
exciting new computer designs and a state-of-the-art machine in our ST 
computer technology. Because of this, and because we believe that none 
of the high-tech brand name computer makers will be at the Chicago 
consumer-oriented show, a marketing decision was made to re-direct 
our efforts toward more appropriate audiences. 


ANTIC ON-LINE 

(ANTIC PUBLISHING INC., COPYRIGHT 1985. 

REPRINTED BY PERMISSION.) 

250 CELEBRATE ANTIC ANNIVERSARY. SAM TRAMIEL FIELDS 
QUESTIONS - WORLDWIDE USERS NETWORK STARTS! 

by NAT FRIEDLAND, ANTIC Editor 

Users group officers from as far away as Pittsburgh, Boston and New 
Jersey attended the Worldwide Users Network inaugural meeting at Antic 
in San Francisco on March 30. There they heard Atari President Sam 
Tramiel say the company hopes to put users groups at the head of the 
line to buy ST 16-bit computers from the first production run . 

Tramiel later explained to Antic that much detailed planning would be 
necessary before the complex process of setting users group ST 
distribution could be 100% certain. ANTIC ONLINE will report further 
information here as it becomes available. 

ATARI OUT IN FORCE 

Some 250 people attended Antic's combination WUN Meeting and 
gala Third Anniversary Party. The Atari delegation included Sam and 
Leonard Tramiel, Atarisoft President Sig Hartmann, Engineering Vice 
President Tom Brightman, Atari Explorer Editor Neil Harris and Users 
Group Coordinator David Duberman. 

Atari ST Software Director Rich Frick ran a flashy demonstration 
program on Antic's own prototype 520ST. The demonstration featured 
a brand-new Forth cartridge which called up a sharply detailed series 
of digitized black and white photos — stored on a working Atari 
10-megabyte 3.5" hard disk. XE Software Director John Skruch brought 
along a production 130XE and ran the animated robot demonstration 
(available on the SIG) which was shown at CES. 

OTHER WELL KNOWN GUESTS 

Joining the throng at Antic for oysters, champagne and birthday cake 
were Macintosh and IBM developers readying to produce ST software, 
as well as some of the top names in Atari third-party production. The 
guest list included Bill Wilkinson and Mark Rose of Optimized Systems 
Software, Alan Ackerman leading an MPP delegation that demonstrated 
the company's new hard disk, Rob LaTulipe of Digital Research (the 
makers of GEM) and Bob Moore of Hybrid Arts (MIDIMATE). 

Mike Mock of Indus Disk Drives showed the upcoming (3rd quarter) 
$149.95 RAM-Charger card with 64K RAMdisk memory and a Z-80 
processor that will work with a soon-to-come BIOS program to run CP/M 
software on the Indus GT and Atari. 

Broderbund's representatives included the programmers of Print Shop, 
who got to read an advance copy of their Antic review from the upcoming 
June issue. 
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COMPUTER FAIRE 

(A look at the new ATARI CORP.) 
by Kirt E. Stockwell, past prez 

I attended the West Coast Computer Faire as a representative of 
Microbits Peripheral Products, Inc., for whom I am the Director of 
Technical Support. The MPP booth was quite active (as we had hoped). 
The busiest booths, however, were those of two ATARI user groups. 
ATARI did not have a booth, but this did not stop them from enjoying 
the largest exposure and the most enthusiastic reactions of any 
manufacturer “represented" there. Two groups, the San Leandro 
Computer Club, (SLCC) and the Atari Bay Area Computer Users Society 
(ABACUS) managed to finagle booths side-by side. Since these were 10'X 
10' locations, this gave them a storefront of 20 feet exposure. It wasn't 
enough!! Every time I stopped by the booths, the crowd was 5 deep ALL 
the way around the booths. 

It is only faire (tee-hee) to mention that ATARI did have some official 
representation at th show: Officials from ATARI frequently stopped by 
the combined club booths, and the Corporation donated 5 to 10 thousand 
dollars worth of promotional materials to the clubs to be given away to 
a very interested public. ATARI also provided 2 of the new 520ST 
machines and several XE computers for display and demonstration. In 
addition, the SLCC recieved an ST system to be raffled off at the show. 
(A digression here: several other manufacturers also provided items to 
be raffled off by the SLCC. The income from the raffle was given entirely 
to an organization that provides assistance to dis-advantaged childen. 
Bravo!, SLCC). By cooperating with and assisting the user groups, ATARI 
CORP managed to turn about 10 thousand dollars worth of warehoused 
promo materials, plus an ST and a little respect, into about a half million 
dollars worth of publicity and enthusiasm. 

The longer Jack Tramiel controls ATARI CORP, the more respect I gain 
for the man's intelligence and for his grasp of how to make limited dollars 
do incredible amounts of work. Any of you who have read my blatherings 
before should know I am an advocate of user groups in a big way. Before 
I became connected with MPP, I often said the USER GROUPS are a 
multi-million dollar resouce the manufacturers of hardware and software 
ignore to their own disadvantage. Since joining MPP, I have constantly 
lobbied for more and better user group support, and have been able to 
place some meaningful programs to benefit user groups. Of course, the 
benefits flow both ways!!! Tramiel, by taking the actions he did at the 
WCCF has gone a long way to legitimizing user groups in the eyes of 
the rest of the industry. 

Other corporations with industry influence have lately begun making 
concerted, directed efforts at suppoting the User Groups. ANTIC 
magazine has sponsored the Worldwide User-group Network (WUN). 
ATARI is working closely with ANTIC in this endeavor. This will provide 
a single, focused point of dispersal for timely ATARI information as well 
as a single point to which ATARI can go for User Group opinions and 
feedback. This program was announced at the show, and was discussed 
in detail at a reception at ANTIC corporate offices. The list of BIG names 
at ATARI who attended the ANTIC/WUN reception includes practically 
all of the movers and shakers at ATARI. There is no doubt now as to 
whether ATARI is willing to support the user groups and treat them as 
worthwhile and responsible citizens of the computer world. 

ATARI has introduced a computer which can truly be called a 
PERSONAL computer (based on price), yet will run rings around the two 
industry biggies, the IBM PC and the MACINTOSH/LISA. The speed alone 
is incredible. Couple this with COLOR, and the ability of using a high-res 
color monitor, SUPER high-res monochrome monitor, or your TV set, and 
you have a great system right off the bat. In addition, the disk drives 
are not only FAST, but have 14 meg and 1 meg (depending on which drive). 
The 512K RAM is not eaten up with FONTS, OPERATING SYSTEMS and 
junk. There is 192K of ROM in the ST. This is where the OS, GEM, and 
the FONTS reside, as well as whichever "native" language will come with 
the machine. This leaves your 512K virtually untouched and free for 
application software. 

The keyboard is the nicest I've felt since I test drove a DEC Professional 
PC. In fact, if any computer has a nicer keyboard, I haven't seen it yet. 
The case is beautiful, and the set-up is — well, the set-up is pure ATARI. 
Detractors will make loud rude noises about the separate power supplies 
and "ALL THOSE CABLES" that are, indeed, a part of the system. Instead 
of a lengthy lecture on the design constraints of a personal computer 
system, let me say there really was no other alternative except to build 
another computer looking like the IBM PC and being considerably more 
expensive. ATARI considered this to be unacceptable and decided if you 
are after POWER (without the price) you could buy an ST. If you are after 
STATUS or IMAGE, you have the IBM PC and the MACINTOSH family. 

SOFTWARE: ATARI will gladly sell a development system to anybody 
who is willing to plop down the cash up front at a minimum of FULL 
RETAIL. In addition, developers will have to take seminars provided by 
Digital Research, and will have to pay for the development system 
software. (I estimate that MPP has spent about $8,000.00 to acquire 


the necessary equipment, tools, and information.) Using this technique, 
ATARI can realistically make plans based on WHO IS REALLY 
DEVELOPING SOFTWARE FOR THE ST (and there is no shortage of 
software developers working on programs NOW). 

Will I buy an ST? You bet! Not only will I buy one when they p m ~ 
available, but I have already recommended them to several seri 
seekers of computer power, and will continue to do so. Am I impres, 
by the new machines? Not only am I impessed by the new machineST 
but also by the fact that ATARI is getting them out ON TIME. 

While attending the WCCF, I had an opportunity to visit a general 
meeting of the SLCC as a guest speaker. I was and am impressed by 
the caliber of the membership and leadership of that group. For a local 
club, they are top notch. 


MEGAFONT 11 + 

Megafont 11+ ($25, XLEnt Software, Box 5228, Springfield, VA 22150) 
is a new version of an old program, but it is more than that. It is an 
updated version of a very good program so people with printers who 
could not take advantage of this program before can now do so. New 
features are also added to allow the user to do more things than ever. 

Owners of Epson and the various related printers can now have four 
different size screen dumps. The left margin can be adjusted to allow 
for logos or pictures to be used in letterheads or whatever you wish. 
At the same time Megafont 11+ allows you to pause the printer so you 
won't overheat it when dumping a picture etc. 

Another of the features added is the Fast Print option. This is added 
to speed up the time it takes to list out programs. I like this feature since 
printing out the program listings is one of the things I do on the newsletter 
and it takes a long time to print out the listings for some programs. 

Another new feature is called the Font Splicer which allows you to 
combine two fonts together. With certain word processors, Atariwriter, 
Bank Street Writer, Text Wizard, etc. you can take out the control codes 
and print your files in any font which Megafont 11+ supports using 
Megafont's controls to give you a new type of printing of your files. 

There are many things one can do with this program, including 
dumping mode 7+ and 8 graphics. Koalapad and Atari Artist screens 
can be printed with Megafont II+ . 

I've started using this program and find it not only does what I want, 
but it gives me the flexibility to change things around the way I w 
them and in turn enhance my printing to make a better looking pag 
whatever I am doing. I can only say the people at XLEnt Software tc 
a good program and made it better than ever. The instructions are clear 
and concise and not too long. It is a menu driven program so one should 
be able to use Megafont 11+ within a matter of minutes. 

— Larry Gold 


VP RAMBLINGS 

Here it is the month of May and all kinds of good things are happening. 
The 520ST was demostrated at our last meeting and it looks super and 
runs the same. From what we have heard as rumors and such delivery 
should be right about now. I sure hope they keep their (Atari) schedule. 

We are changing the way we use the BBS, from now on we will print 
a new password each month and when you log on when the system asks 
for your password type in the one given in the newsletter. When it asks 
for the last four numbers of your phone number type in 1234. If you 
haven't received your newsletter yet you still can use last month's 
password until the middle of the month when it will be deleted. Non¬ 
members will have their own password which will allow access to the 
lower levels of the system as before. I hope this new system works. The 
change is needed because this BBS has problems when the number of 
active passwords exceeds 600 or so. Please let us know what you think 
of it and perhaps any other ways to improve the system. 

Check the newsletter for the new password. 

We need more imput from you to let us know what you want to see 
in the newsletter, especially with the new machines coming out. We hope 
to expand so we have programs and articles covering all the computers 
and languages. If you don't write you may not get what you want. 

— Larry Gold, Vice President 

MAY PASSWORD IS FAIR 

PHONE NO. IS 1234 
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MOVING ALONG IN LOGO 

(The SHAPE EDITOR and Simple Animation) 
by Ruth Ellsworth 

Giving the Turtle a new look with the SHAPE EDITOR can be a lot of 
fun. Trying to save and reload shapes can be not so fun. The reason for 
this is the LOGO documentation does not give clear enough or specific 
enough information on the procedures necessary. 

The easiest way to save and reload shapes is to create a Save(shape) 
module and a Load(shape) module. For example: 

TO SAVEDOG 
MAKE "DOG1 GETSH 1 
MAKE "DOG2 GETSH 2 
(etc.) 

END 

TO LOADDOG 
PUTSH 1 :DOG1 
PUTSH 2 :DOG2 
(etc.) 

END 

The program is saved to disk or cassette by what ever name is desired 
In order to retrieve the shapes, the program is loaded as usual. The 
LOADDOG module must be called before the program is run in order tc 
load the shapes into the SHAPE EDITOR. This method of saving anc 
loading shapes is the easiest and requires least typing. On our compute 
this method is not reliable for more than two different shapes. 

To prevent problems with multiple shapes, the PUTSH command car 
be used. The TO LOADDOGS module in the program listing uses thk 
method of saving and loading shapes. In order to use the PUTSh 
command one must place 16 numbers which represent the bits in the 
shape wanted in the brackets which follow the PUTSH command. This 
may sound complicated, but can easily be accomplished by using the 
EDSH command to create the shape, then using the PR GETSH 
commands to return the bit numbers in the shape. Note again that in 
order to have the shape in the SHAPE EDITOR, one must call the 
LOAD(shape) module after the program is loaded before the program is 
run. In the program listing LOADDOGS is called by both the BEGIN and 
the START modules to insure the presence of the shapes before either 
of the two demo programs is run. 

The GODOG program is a demonstration of simple animation. In this 
case, four dog shapes are used to move the turtle in the shape of a dog 
across the screen. Like a "flip movie" made out of paper or cartoon, each 
dog is drawn in a slightly different position. The shapes are run in rapid 
order to give the appearance of moving. The WAIT command is used 
to slow the movement down enough to be seen. When the WAIT 
command is lengthened, it is easier to see the movement from one 
"frame" (picture) to another. 

To run the GODOG demo, type START. When the dog appears, type 
G to make the dog move. The dog will move to the right through each 
of the shapes which give the illusion of running. Then it will pause. Type 
G to continue or S to return it to the initial. Use the BREAK key to stop 
this demo which is what my children call "a forever program." 

The second demo demonstrates the use of the joystick to move shapes 
around the screen. There are eight dog shapes used, and younger children 
enjoy this one. It is particularly fun if dog like sounds are added. To use 
the demo, type BEGIN. The BEGIN module loads the dog shapes, sets 
the beginning dog shape, and waits for the WHEN demon to show that 
the joystick has been moved. If the value of the joystick is less than 0, 
the joystick is not being moved and action stops. The position of the 
joystick determines which series of dog shapes are used; they appear 
in the brackets after the joystick number. IF ( JOY 0 ) = 0 [DOGUP] 
means that IF the JOYstick in the first port returns a 0, the DOGUP 
module is called. 

The SETSP and RANDOM commands can be used with shapes to really 
"move graphics programs" along. To changes the GODOG module so 
that it demonstrates their use, use SETSP in place of the FD lines and 
RANDOM degrees in the place of the RT command. 


MAY MEETING WED. MAY 8TH 
SOUTH EUGENE HIGH 7:30 PM 


F-15 STRIKE EAGLE 

(Microprose Software $34.95) 

F-15 Strike Eagle is a simulation putting you in command of a modern 
jet fighter-bomber. At your fingers are medium and short range missies, 
guns and bombs. Ahead of you are SAMs, enemy fighters, airfields, and 
targets. The mission is to penetrate the enemy defenses and bomb your 
primary target(s). Are you good enough? 

This is a change for me. Usually I play ground combat simulations, but 
I never turn away a challenge. And this game is a challenge, for pilots 
of all ages. The game disk includes seven missions to fly, from Libya to 
Hanoi. One to four players may participate. There are also four levels of 
difficulty, and they are difficult. Realism plays a big part in this game. 
Before you can begin a mission, you must authenticate yourself with 
a code found in the book. More realism exists in the game as your plane 
is equipped with everything from HUD (Heads up Display, showing 
instrument read-outs on the windscreen) to flares to ECM (Electronic 
Counter Measures to defeat enemy weapons). You look out from the 
cockpit over the landscape as you fly, but your dash board includes three 
radars, as well as a tactical map. 

This game is very playable, and flexible in that no mission is exactly 
the same as any other. The graphics are very detailed, along with 
power/weight curves and thrust output graphs included in the manual, 
and even diagrams of some simple evasive actions. The aircraft is so 
maneuverable you can perform almost any type of maneuver. I rate this 
game highly, for the true pilot or just for someone who wants to enjoy 
the thrill of flying. 

—Aaron Ness 

1030 RING DETECT 

(reprint: Computer Squad News, March 1985) 

If you've ever thought about running a BBS on a 1030 modem, here 
is some information you may need to know. There are only 4 parts 
required to build a ring detector: 1) A phone wire to connect to your phone 
line. The plug-in type is best. 2) A Joystick replacement cable. 3) A 125 
volt AC relay. Radio Shack #275-217B or equivalent. 4) A 22 MF or 
greater capacitor of at least 100 volts. 5) An optional plastic box DO 
NOT USE METAL. 

Connect the Green Phone Wire to pin 7 of the relay coil. 

Connect the + (positive) end of the 20MF capacitor to pin 8 of the 
relay coil. 

Connect the Red Phone Wire to the - (negative) end of the capacitor. 

Connect the unit to the phone line and test to see that it responds 
REMOVE IT FROM THE PHONE LINE!! 

Connect the Orange Joystick wire to the Common Relay Contact pin 4. 

Connect the Black Joystick Wire to the N.O. Relay Contact pin 6. 

With a meter or circuit tester, check that no connection between the 
phone wires and the joystick wires occurs. Cross check all four wires. 

Package up, to protect the unit and install in Joystick port 2. 

Plug the unit into the phone jack. You may need a Y telephone adapter 
jack. 

You are now ready to run your software. 

Oiaqrit 


6rcen 



7 > 


> 

PHONE 

Ntliy > 

LINE 

Coil > 


8 > 


!♦ 


■ 21 HF 


n.c. e 


N.O. 


\ 

4 8 

6 8 - 


Onngi 

- 6 

JOYSTICK 2 
- 8 







FID tv DALE LUTZ 


FID 

by Dale Lutz 


jThis prograM is a single drive 
jutility for file Manipulations. 

;It excels in duping a nuMber of sMall 
;files, eg. Music coMposer files. 

;It could also be used in Mass file 
^density conversion with a single 
;Indus Drive. 

;The scrolling directory routines 
; should be able to be incorporated into 
; other ACTION! prograMs *»ith a Mini mum 
jof effort. 

;The codetop constant is set to the top 
;of the prograM and serves as a pointer 
;to bottOM of the buffer used for 
;file copying, it May need to be 
;changed depending on your MeMory config 
uration 

iRight now it is set so that when 
;it is coMiled off the disk, and 
;SYS.ACT is INCLUDED, and 05/A* 
iis in MeMory, it is okay. To find 
;out ifhat to change it to, use the 
;clear MeMory, CoMpile this froM disk, 
;and then type ?$E froM the Monitor. 
;Note the last nuMber typed, and change 
;the codetop to this value*288...Good lu 
ck 

; INCLUDE"5Y5.ACT" ;used when Making it 
runtiMe 

DEFINE length="18", 

COdetop="19588" ; CHANCE THE 19588 

TO THE 

;VALUE RETURNED AT THE EN 

D OF COMPILING 

;BY ?$E 

BYTE ARRAY directory(1178),Mark(65),file 
naMe (28) 

BYTE counter,consol=53279,choice,forMatt 
ed,flag 
INT pos,y 

CARD base,c,MeMtop=74l 
BYTE POINTER buffer 
CARD ARRAY MSg(7),addr(66) 

PROC MenuO 
BYTE a 

*s9i2^"WSMms' 


jUHLOCK FILES. 


DELETE FILES 


COPY FILES 


M5g(4)=”[! 

Msg(i)=" 

Graphics(8) 

Poke(752,1) 

Color=l68 jdrair fraMe 
Plot(8,8) 

DravTo(39,8) 

DravTo(39,23) 

DravTo(8,23) 

DravTo(8,8) 

Plot(8,8) 

Position(18,23) 

Pr i nt C ^flfltilJigfaMilAiiril ") 
Position(18,1) 

PrintE("Atari File Developer") 
Position(18,2) 

FOR a=l to 28 


DO 

Put(13) 
OD 


Position(14,3) 

PrintE ("Version 1.4") 

Position(18,5) 

PrintE("by") 

Position(14,7) 

PrintEC'Dale Lutz") 

Position(8,9) 

PrintE("Functions Available*.") 
Position(12,11) 

PrintE("1. Batch Copy Files") 
Position(12,13) 

PrintE("2. Lock Files") 
Position(12,15) 

PrintE("3. Unlock Files") 
Position(12,17) 

PrintE("4. Delete Files") 
Position(12,19) 

PrintE("5. ForMat Disk") 
Position(12,21) 

Print ("Your Choice—)") 

Put(168) 

RETURN 


PROC BlipO 
BYTE COunt=C81 
IF count>4 THEN count=8 FI 
Position(12,ll*count*2) 
PutCl+count) 
count—*! 

IF count>4 THEN count=8 FI 
Position(12,ll*count*2) 
Put('l*l28+count) 

RETURN 


PROC ForMat(BYTE ARRAY DriveSpec) 


XI0(5,8,254,8,8,DriveSpec) 

RETURN 

PROC Erased 

XIO(5,8,33,8,8,filenaMe) 

RETURN 

PROC Protect() 

XIO(5, 8 , 35, 8 , 8 , filenaMe) 

RETURN 

PROC UnProtect() 

XIQ(5,8,36,8,8,filenaMe) 

RETURN 

PROC Read-DirectoryO 
BYTE ARRAY StrC38) 
counter=8 
base=directory 
Closed) 

Open (1,"D1 :*.***, 6,8) 

WHILE EOF(1)=8 
DO 

Input5D(l,str) 
counter==+l 
SCopy(base,str) 
base—*length 
OD 

Closed) 

RETURN 

PROC MarkprintCBYTE POINTER begin,BYTE 
lace) 

BYTE POINTER b 
BYTE Chr 

FOR b=begin*l to begin A *begin 
DO 

c=pos*place 
c hr=b A *l28«Mark(c) 

Put(chr) 

OD 

PutEO 

RETURN 

PROC UpdateyO 
Position(length*!,y) 

PrintErfflB") 

IF y<23 THEN 
Position(length*l,y*i) 

PrintEC* ») 

FI 

IF y>8 THEN 
Position(length*l,y~l) 

PrintE(" ") 

FI 
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FID CON'T 


console 

FI 

Put(27) Put(29) 

RETURN 

FI 

Print (" '•) 


IF y=28 AND pos=counter-21 THEN y=19 F 

ELSE Print(nsg(choice)) 

PROC OirprintO 

I 

FI 

CARD a 

UpdateyO 

¥P=oy 

BYTE end 

RETURN 

xp=ox 

Position(2,1) 


RETURN 

IF counter-2)19 THEN end=19 

PROC ConnandO 


ELSE end=counter-2 

BYTE key=764,OldpOS,a 

PROC 6et-selections() 

FI 

oldpos=pos 

CARO j 

FOR a=B TO end 

IF key=14 THEN UpO 

FOR j=8 TO 65 

00 

EL5EIF key=142 THEN 

00 

base=directory+(pos+a)*length 

FOR a=l TO 5 

nark(j)=8 

Harkprint(base,a) 

00 

00 

00 

UpO 

Graphics(8) 

RETURN 

00 

Poke(752,1) 


ELSEIF key=15 THEN OomO 

ReadLOirectoryO 

PROC OovndirO 

EL5EIF key=143 THEN 

Pos=8 y=i 

Position (2,1) 

FOR a=l TO 5 

OirprintO 

Put(157) 

00 

UpdateyO 

base=directory*pos#length 

OovnO 

HHILE consol06 

Harkprint(base,B) 

00 

00 

Position(2,21) 

ELSEIF key=12 OR key=148 THEN 

ConnandO 

Put(156) 

y==-l 

FOR j=l TO 188 00 00 

RETURN 

a=pos+y 

More_update() 


IF nark(a)=8 THEN nark(a)=l 

00 

PROC UpdirO 

ELSE nark(a)=8 

RETURN 

Position(2,1) 

FI 


Put(156) 

c=direc tory+a*length 

PROC Get.filenane(BYTE POINTER begin) 

Position(2,28) 

Harkprint(c,y) 


base=directory+(pos+19)*length 

y==+l 

;enter vith begin pointing to correct 

Harkprint(base,l9) 

IF y<28 AND y+pos<>counter-2 THEN y= 

;string exit with string filenane read 

RETURN 

=+l FI 

UpdateyO 

y to go 

PROC Up() 

FI 

BYTE ARRAY te 

y==-l 

key=255 

BYTE POINTER b 

IF y=8 THEN y=l 

RETURN 

BYTE chr,co,a 

IF pos)0 THEN pos-- - l 


co=8 

OovndirO 

PROC Hore.updateO 

FOR b=begin+3 to begin+18 

FI 

BYTE xp=84,yp=85,OX,oy 

00 

FI 

oy=yp 

chr=b A 

UpdateyO 

ox=xp 

IF Chr=32 THEN EMIT 

RETURN 

Position(6,8) 

FI 


IF pos<>8 THEN 

It 

II 

e 

w 

PROC OovnO 

Put(27) Put(28) 

00 

y==+l 

Print("MORE") 

filenane(8)=co+4 

IF y>counter-2 THEN y==-l FI 

Put (27) Put(28) 

a=8 

IF counter=22 AND pos=8 THEN 

Print(" ") 

FOR b=begin+3 TO begin+co+2 

IF y=28 THEN pos==+l y=28 

ELSE Print(nsg(choice)) 

00 

UpdirO 

FI 

CM 

II 

II 

+ 

H- 

FI 

Positions,21) 

filenane(a)=b A 

FI 

IF counter-2l<)pos AND counter-2>19 TH 

00 

IF y=21 THEN y=28 

EN 

a==+i 

IF pos<counter-28 THEN pos==+l 

Put(27) Put(29) 

filenane(a)='. 

UpdirO 

Print("MORE") 

FOR b=begin+ll TO begin+13 
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FID 


00 

a==M 

fi!enave(a)=b A 

00 

SCopy(te,filenave) 
fiIena*e(8)"+2 
filenamed) = '0 
filename(2) = ': 

FOR a=i TO te(8) 

00 

co=a+2 

filenave(co)=te(a) 

00 

PrintE(filenave} 

RETURN 

PROC Executed 
BYTE l00P,5P 
Get_selectionsO 
Put(125) 
c=ns 9 (choice) 

FOR IOOP=1 TO (38-PEEK (C))/2 
00 

Put(32) 

00 

PrintE(c) 

Put EC) 

FOR loop=0 to counter 
00 

IF nark(loop) =1 THEN 
c=directory♦1ength*!oop 
Get_.fi lenave(c) 

IF choice=2 THEN Protect() 

EL5EIF choice=3 THEN unProtect() 
EL5EIF choice=4 THEN Erased 
FI 
FI 
00 

RETURN 

PROC wyErrord 
forvatted=8 
RETURN 

PROC CheckforvatO 
BYTE ARRAY Str(3B) 

BYTE loop 

CAR0 tevperror,striing 
Graphics(8) 

striing="Checking 0isk" 

FOR loop=l TO (38-Peek(striing))72 
00 

Put(32) 

00 

PrintE(striing) 


PutEO 

forvatted=i 

tevperror=Error 

Error=HyError 

Closed) 


;Revove the folloving line if you don't 
;vant to vait while it checks if a disk 
;is formatted: 

Opend," 0 i:*.*", 6 , 8 ) 

Closed) 

Error=tevperror 
IF forvatted=l THEN 
PrintEC'This disk is already forvatt 
ed.") 

Print ("Enter «Y' to 3SEKEH it anyvay 
—>") 

Inputs(str) 

IF strdlO'Y AN0 strdlO'y THEN 
RETURN 
FI 
FI 

PutEO 

PrintE("Forvatting 0isk...") 
Forvat("0l:") 

RETURN 

BYTE FUNC GetKeyd 
BYTE nuvber 
Close(2) 

0pen(2,"K:",4,8) 
nuvber=6et 0 ( 2 ) 

Close(2) 

Put(nuvber) 

RETURN (nuvber) 

PROC 0uvp(BYTE a) 

BYTE loop,end,nuvber 

PutEO 

Put(253) 

Prin t("Insert 0estination 0isk, Press 

mam 1 * 

Print(" —>»j 

Poke(764,255) 
nuvber=GetKey() 

FOR loop=e to a-l 
00 

IF vark(loop)=l THEN 
c=direc tory♦1ength*loop 
Print("Hriting File: ") 
Get_filenave (c) 

Close(3) 


Open(3,filenave,8,8) 

IF SCovpare("0:005.SYS",filenave)= 

0 THEN 

Put0E(3) 

ELSE end=loop+l 

FOR buffer=addr(loop) TO addrCen 

d)-2 

00 

nuvber=buffer A 
Put0(3,nuvber) 

00 

FI 

Close(3) 
vark(loop)=8 
FI 
00 

IF a<65 THEN 
PutEO 
Put(253) 

Print ("Insert Source 0isk, Press SOD 
203") 

Print(" ~>*»j 

Poke(764,255) 
nuvber=GetKey() 

FI 

RETURN 

PROC Readfile(BYTE a) 

BYTE nuvber 
Close (4) 

0pen(4,filenave,4,8) 
addr(a)=buffer 
WHILE EOF(4)=8 
00 

nuvber=Get0(4) 

buffer A =nuvber 

buffered 

IF buffer=vevtop THEN 
0uvp(a) 

buffer=codetop 

flag=l 

RETURN 

FI 

00 

nuvber=a+l 
addr(nuvber)=buffer 
RETURN 

PROC Copyd 
BYTE a 
flag-0 

Get.Selectionsd 
buffer-codetop 
FOR a=8 TO 65 
00 
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2 REM 130211 

3 REM j 

4 REM j 
9 POKE 186,PEEK(106)-5 
18 CLR :GOTO 7988 


15 H=H+S:8=8+5:CR$=D1$:RETURN 

16 H=H+S:M=U-5:CR$=D1$:RETURN 

17 H=H+5:CR$=D1$;RETURN 

19 H=H-S :U=U+5;CR$=D2$:RETURN 
28 H=H-5:U=U-5:eR$=D2$:RETURN 
21 H=H-SS CR$=D2$ :RETURN 

23 U=UFS:RETURN 

24 0=9-5:RETURN 

25 M=M+1:RETURN 

189 POKE 53278,1:G05U8 PEEK(632)+18iP8 

$(M)=CR$:POKE 53248,H 

183 IF PEEK (764) 0 255 THEN GOTO 23999 

185 POKE 53764,138-LO 

118 IF PEEK(53252) 08 OR PEEK(53268)0 

9 THEN G05U8 899 

128 IF H)198 THEN H=68:5CR=5CR+1:FR=8: 

M$ (MM)=B $192 $ (RV)=B2$:5C=5C+38:G05UB 1 

9598+SCR*588:GOTO 418 

138 IF H<68 THEN H=198:5CR=5CR-i:FR=8: 

M$(MM)=B$:P2$(RV)=B2$j SC=SC-38:G05UB 1 

8580+5CR*500:GOTO 418 

288 IF PEEK(644)=1 AND FR=8 THEN GOTO 

498 


218 IF FR=8 THEN FR=1:MH=H+3:MU=M+4;PO 
KE 53252,HK 

228 MU=MU+N5:M$(MU)=DH$:IF MU>215 THEN 
CL=8:GOTO 248 

238 CL=PEEK(53248);IF CL=8 THEN GOTO 4 


248 IF CL02 THEN FR=8:M$(HU)=B$:MH=H+ 
3:MU=U+4:G0T0 488 

245 FR=8:POSITION 14,23:5C=5C+48+IMT(V 
/28)i? #6;SC:POKE 712,62 
258 M$(MU)=B$:POSITION INT(MH/8~4.865) 
-1,INT(MM/8-3.645)-8:? #6;” ":MH=H+3:M 
M=M+4:P0KE 712,8 


ROCKET 


498 IF PEEK(53254)=8 AND RH<288 AND RH 
>59 THEN GOTO 458 

418 P2$(RM)=B2$:RP=INT(6*RND(1)):RH=RI 
(RP+6#(5CR-1),9):RU=RICRP+6*C5CR-1),1) 
:POKE 53258,RH 

428 POKE 786,(INT(16*RND(1))*16)+19 
459 RH=RH+SGN(H-RH)*2:RU=RU-R5:P2$(RM) 
=D4$:P0KE 53259,RH:GOTO 198 


COLLISION 


899 P2$(RM) =B2$:POKE 53761,9'.POKE 5376 
5,9:IF LM=8 THEN GOTO 22988 
893 FOR A=8 TO 18:POKE 712,14:POKE 794 
,(2*16)+18-A:U=M*i:POKE 53256,1:P8$(M) 


BLACKBIRD 


=D3$:F0R M=1 TO 18:NEXT H:P8$(M)=D1$ 

885 POKE 712,9:POKE 53768,58FA*15:POKE 
53761,14-A:FOR H=1 TO 5:NEXT HlPOKE 5 

3256,9:P0$(M)=D2$:FOR M=1 TO 5 

886 NEXT M:NEXT A 

898 SOUND 9,8,9,8:POKE 53768,4:POKE 53 
761,162:POKE 53765,162:POKE 53768,252: 
POKE 53764,138-LM 

818 P8$(M)=B$:H=65:M=il8:CR$=D1$:POKE 
784,15:POKE 53256,8:LM=LM-l:POSITION L 
M,23:? m;" « 

838 RP=INT(5»RND(1)):RH=RI(RP+5*(5CR-1 
),8):RU=RI(RP+5*(5CR-l),i):POKE 53258, 
RH:POKE 53278,1:RETURN 
6999 REM 

7888 GRAPHICS 1+16:5ETC0L0R 8,3,6:5ETC 
OLOR 2,8,4:5ETC0L0R 1,8,18:5ETC0L0R 3, 
8,12 

7499 REM 

7588 H=78:M=118:5=5:MS=4:5CR=1:SC=8;FR 
=8:MH=H+3:MM=M+4:LM=5:5KL=1:R5=3 
7999 REM IB 

8888 DIM Fl$(l),F2$((INT(ADR(Fl$)/2848 
) U) *2848-ADR (Fl$)-1) 

8818 DIM B$(256),F3$(256),F4$(256),M$( 
256),P8$(256),Pl$(256),P2$(256) 

8929 B$=CHR$(8):B$(256)=CHR$(8):B$(2)= 
B$ 

8925 P8$=CHR$(8):P0$(256)=CHR$(8):P9$( 
2) =B$ 

8828 P2$=CHR$(8):P2$(256)=CHR$(8):P2$( 
2) =B$ 

8838 F3$=B$:F4$=B$:M$=B$:Pl$zB$:P2$=B$ 

8849 DIM Dl$(18),CR$(18):RESTORE 8868: 
FOR 1=1 TO 16:READ A:D1$(I,I)=CHR$(A): 
NEXT I:CR$=Di$ 

8868 DATA 8,8,8,8,0,128,194,127,128,22 
4,128,8,8,0,8,8 

8878 DIM D2$(18):RESTORE 8888:FOR 1=1 
TO 16'.READ A:D2$(1,1) =CHR$(A) :NEXT I 
8888 DATA 8,8,8,8,8,1,67,254,38,7,1,8, 
8,8,8,0 

8885 DIM D3$(18) .'RESTORE 8898:FOR 1=1 
TO 14:READ A:D3$(I,I)=CHR$(A):NEKT I 
8898 DATA 8,8,9,128,18,168,86,48,129,8 
8,0,8,8,8 

8188 RESTORE 8119:DIM DM$(13):F0R 1=1 
TO 9:READ A:DM$(1,1)=CHR$(A):NEXT I 
8119 DATA 0,8,8,8,2,8,0,8,8 
8128 DIM D4$(28):RESTORE 8138:FOR 1=1 
TO 15:READ A:D4$(1,1)=CHR$(A):NEXT I 
8138 DATA 8,8,8,8,28,8,28,62,42,8,8,8, 
9,8,8 

8148 DIM B2$(39):B2$=B$:POKE 54279,ADR 


(B$)/256:P0KE 559,62:POKE 53277,3:POKE 
53256,8 

8288 POKE 53248,H:POKE 623,2:G05UB 288 
88 

9999 REM 

10088 DIM ML$(25) :ST=(PEEK (186)+1)*256 

18825 RESTORE 18038:POKE 284,5T/256:P0 
KE 286,224:FOR A=i TO 28:READ B:ML$(A, 
A)=CHR$(B):NEXT A:A=U5R(ADR(ML$)) 

18838 DATA 184,162,4,168,8,177,285,145 
,283,288,288,249,238,286,238,284,282,2 
88,242,96 

18848 POKE 756,ST/256:FOR AS=65 TO 83: 
POKE (AS-32)*8+5T+7,255:POKE (A5-32)*8 
♦ST,255:NEXT AS 

18942 RESTORE 18843:FOR B=9 TO 7:READ 
C:POKE (77-32)*8+5T+B,C:NEXT B 
10843 DATA 255,8,0,8,8,8,8,255 
10845 FOR B=i TO 6:POKE (80-32)*8+5T+B 
,PEEK((82-32)*8+ST+B):NEXT B 

18847 FOR B=1 TO 6:POKE (78-32)*8+ST+B 
,PEEK((83-32)*8+ST+B):NEXT B 

18848 FOR A=0 TO 6 STEP 2:POKE (35-32) 
*8+ST+A, 178:POKE (35-32)*8+5T+AU,85:N 
EXT A 

10858 RESTORE 18969:FOR AS=81 TO 99:F0 
R 8=8 TO 7:READ D:POKE CAS~32)*8+5T+B, 
D:NEXT B:NEXT AS 

10968 DATA 8,136,153,153,219,251,251,2 
55 

10065 DATA 255,251,251,219,153,153,136 

j-8 

18870 DATA 0,34,35,183,183,119,247,255 

18875 DATA 255,247,119,103,103,35,34,8 

18888 DATA 255,147,255,281,255,147,255 
,281 

10885 DATA 255,255,255,255,255,255,255 
,255 

18898 DATA 8,144,144,216,218,258,255,2 
55 

18895 DATA 255,127,111,47,15,13,5,8 
10188 DATA 8,5,13,15,47,111,127,255 
18105 DATA 255,255,258,218,216,144,144 

#8 

18118 RESTORE 19120:FOR B=8 TO 7:READ 
D:POKE (74-32)*8+ST+B,D:NEXT B 
10128 DATA 195,195,182,126,24,68,165,2 
55 

10138 RESTORE 19148:FOR B=8 TO 7:READ 
D:POKE (42-32)*8+5T+B,D:NEXT B 
18148 DATA 0,8,8,8,28,62,73,28 
10288 RESTORE 18218:DIM RI(55,2):F0R A 
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» PAUL FREEMAN 


=8 TO 53:REAB B,C;RI(ft,6)=B:RI(A,1)=C: 
NEXT ft 

10218 BATA 135,106,159,104,175,152,155 
,00,127,104,135,192 

10220 DATA 75,176,103,160,115,152,135, 
00,151,06,127,152 

1023B BATA 07,104,115,00,159,120,127,1 
04,159,104,103,60 

1O240 BATA 07,112,103,160,119,120,167, 
176,159,96,135,160 

10250 BATA 75,120,111,144,95,104,159,1 
04,175,120,143,136 

10260 BATA 103,120,79,104,111,192,127, 
192,135,104,175,136 

10270 BATA 79,120,103,104,67,104,127,1 
76,155,104,175,120 

1B275 BATA 07,176,111,152,115,192,155, 
160,135,112,07,60 

1020B BATA 71,136,55,160,119,192,115,6 
0,143,160,167,136 

10290 RO=i:P2$(RO)=B2$:RP=INT(6*RNB(1) 

):RN=RI(RP,0):RO=RI(RP,l):POKE 53250,R 

H:RB=INT(3*RNB(1))-1 

10295 PONE 704,15:5ETC0LOR 0,3,6:5ETCO 

LOR 1,0,10:5ETCOLOR 3,0,12:5ETCOLOR 2, 

B,4 

1030O G05UB HOBO;POSITION 0,23:? H6;" 
*****":50UNB 8,0,0,0:POKE 53766,4:POKE 
53761,163:POKE 53765,163 
10310 POKE 53766,252:POKE 53764,125:60 
TO 235O0 

10499 rem sammim 

10500 SCR=1:POP :60SUB 000:GOTO 1O0 

10999 REM ZmUMWl 

11000 POKE 7O0,(3*161*6:POKE 53246,N:P 
OSITI0N 0,0:? tt6; lf MbMlliaMClikl«bMi)ipMdN >> 


11005 

11010 

11015 

11020 

11025 

1103O 

11035 

11040 

11045 

11050 

11055 

1106B 

11065 

11060 

11065 

11090 

11095 

11100 


? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 


uuuvuuuvvuvuvvuuuyv 


Bid 


"0 0E 
”0 
”0 
"V 
"V 
"0 
"0 
"0 
"V 
“V 
"0 
"0 

"OOOOOOOH 
"UUOOUOOZ 

"vaEnsuv 

"0800000H 


20 


11165 ? 86;"08uvuu00 

11110 ? 86;"08ulUUV0M j j 

11115 ? 86;”08vuuuuuUQujQSuSjQS" 

11120 ? 86;"08uuuuuvv0Uu0000u00" 

11200 POSITION 6,23:? 86;"CHQ21 0 ";sc 

1130O RETURN 

11499 REM aEMdMK 

11500 POKE 700,(15*161+0:POKE 53246,H: 
POSITION 0,1 


12090 

12095 


? 86 ;" 
? 86 ;" 


YOU 

YOUOH 


J 

121O0 ? 86;" Y00300M ju j 
12105 ? 86; "SOOuuvuOOSuuSQuSOSS" 

12110 ? 86;"00vvuvuv00U00U08888" 

12115 POSITION 6,23:? 86;"aSE01 B ";SC 

123O0 RETURN 

12499 REM aHfrggi 

12500 POKE 70S,(2*161*6:POKE 53246,H:P 


11550 ? 


86: 

Q5ITI0N 0,J 

L 


86; , fiKiaa»l»M.OirPBI[A»AJJi»» 

12505 

? 86 


86;" 


12510 

? 86 

iinniniTinxniTfnTnnnffSTii 

86;" 


12515 

? 86 

■*EEEE RTOPUli 

86;" 

EBB 

12520 

? 86 

"3EB 


86;" 

ii 

12525 

? 86 


350 

86;" 

it 

12530 

? 86 

■HE 

m 

86;" 

j j " 

12535 

? 86 

**35 

ggBH 1 

86;" 

gpnufflugpw " 

12540 

? 86 

"35 

m 

86;" 


12545 

? 86 

"35 

j * 

86;" 

it 

12550 

? 86 

'HE 

EEuEB 1 

86;" 

ii 

12555 

? 86 

'*3S 

j HE ' 

86;” 

Y 

12560 

? 86 

"BS 

Bud 

86;" 

YON » 

12565 

? 86 

"SB 

HE J 

86;" 

5000 " 

12576 

? 86] 

"0 

u * 

86;" 

jjOOUOO " 

12575 

? 86] 

ii 

0 Y* 

86;" 

JSUU00080H " 

12580 

? 86] 

it 

0 Y0‘ 

86;" 

JU00U00880Z " 

12585 

? 86] 

u 

YON Y00* 

86;" 

jQuOUUvvuUOO " 

12598 

? 86] 

ii 

jOOOj 008* 

86;» 

Yu00Uvuv2w00H " 

12595 

? 86] 

ti 

YQu04UuQH jJ008 1 

86; "SSQ0800UVUVUWU000M" 

126O0 

? 86] 

" Y JSOUvVUVV00UU008" 

86;"888880Uuvvuvvvuv000" 

12605 

? 86] 

"SQ0U0UVUVVVUVV0U088" 

J5ITI0N 

6,23:? 86;"HSSEQ B ";5C 

12610 

? 86] 

"00000uuvvvvuuvv08t8P i 


11600 RETURN 

11999 REM i 

12000 POKE 706,(12*16)+6:POKE 53240,H: 
POSITION 6,1 

120O5 ? 86;"0 

12010 ? 86;"G 
12015 ? 86;" 


uuuyyvuvuuuuuvvuuuu; 


12020 ? 86;" 
12625 ? 86;" 
1203O ? 86;» 
12035 ? 86;" 
12046 ? 86;" 
12045 ? 86;" 
12050 ? 86;" 
12055 ? 86;" 
12660 ? 86;" 
12065 ? 86;" 
12070 ? 86;" 
12675 ? 86;" 
12060 ? 86;" 
12065 ? 86;" 


J J 


Yj 
Ou EH 

uo EE 

V8 8 
08 
08H 
UOZ 
00 


SEE" 
BE" 
EE‘ 
EE*' 
EE" 
EE" 
BEE" 
35EE" 
mnn * 

msmm 


12615 POSITION 6,23:? 86;»C0Sai B ";5C 

127B0 RETURN 

12999 REM 

13000 POKE 766,(3*16)410:POKE 53246,H: 
POSITION 0,1 

13005 ? 86; 


13610 

13015 

13020 

13025 

13030 

13035 

13046 

13045 

13050 

13055 

13066 

13065 

1307O 

13075 

13060 


86 

86 

86 

86 

86 

86 

86 

86 

86 

86 

86 

86 

86 

86 

86 


iuuuyvvuvuuuuuyyuuuui 


ttryyyyyuuyyyyyrrtr 




EB3B 

3535 

BBS 

S5E 

as 


J 

" juw 
" YuOZ 
"5000Z 
"050Z 


ffl j 
jfiEdu 


j 

YU 

XUOO 1 

XOO 1 

00 ' 
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BLACKBIRD 


13885 ? 86;"VVZ gg 

VV" 

14088 ? 86;'1 


15875 ? 

13898 ? 86;"8V 

VV" 

14885 ? 86;" 

RBH » 

15880 ? 

13895 ? 86; "8V 

VV" 

140S8 ? 86;" 

ii 

15885 ? 

13108 ? 86;"8VM j 

j VV" 

14895 ? 86;" 

j 

15890 ? 

13185 ? 86;"8VVQQQu5SS5QjQuQSVV" 

14108 ? 86;" 

j YUM j 

15095 ? 


13118 ? 86;"8VVVvuuuvvuuuuuiivVV" 
13115 P05ITI0N 6,23:? US; 


13388 

13499 

13500 

0,1 

13505 

13510 

13515 

13520 

13525 

13530 

13535 

13540 

13545 

13550 

13555 

13560 

13565 

13570 

13575 

13580 

13585 

13590 

13595 

13608 

13685 

13610 

13615 


B ";sc 


RETURN 
REH 

POKE 788,6:POKE 53248,H:POSITION 


? 886 
? 886 
? <86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 
? 86 


uuuvvvuvuuuuuvvuuuu 


XVVZXttBVVZ 


PE 


J 

"WuZ 

"VVZ 

"UV 

"UV 

"UV 

"VV 

"VVH j 


BE 


"V6VRU jSS jS juSQQQSVV" 

"vvvvvuuvuvuuvuvtmmr 
POSITION 6,23:? 86:" £EEfg3 fl »;5C 



14185 ? 86; "SQSQuSS jQVWQSuQSSS* 1 
14110 ? 86;"888vvuuuVu7uUvuvvVV' 


mmJj jufflBHHQ}" 
•&mmQuj juQwttW 
W888N0U uflN888N[!j" 
15108 ? 86: i 

15105 ? 86; "HVMYHYMYu juHYMYMYHY" 


14115 POSITION 6,23:? 86:" KM»H:l4 fl ";5C 15118 ? 86;”VVVVVUvuuuuuWUVUVU" 

15115 POSITION 6,23:? 86:» EBIif33 fl ";5C 

14380 RETURN 
14499 REH i 

14588 POKE 788,(12*16)+10:POKE 53248,H 
:POSITION 0,1 
14585 ? 86; 


14518 ? 86 
14515 ? 86 
14520 ? 86 
14525 ? 86 
14530 ? 86 
14535 ? 86 
14548 ? 86 
14545 ? 86 
14558 ? 86 
14555 ? 86 
14560 ? 86 
14565 ? 86 
14570 ? 86 
14575 ? 86 
14588 ? 86 
14585 ? 86 
14598 ? 86 
14595 ? 86 
14660 ? 86 
14605 ? 86 
14610 ? 86 


mxnmBmmE?' 


msmE? 1 

BEEHE?* 


HZj 1 
Q9u 
SEE 


PE ESSEX!!" 

EE HBE" 

BE?' 

an*' 

j 

uE " 


jflui&ggD" 


j 

JYUM 


13780 RETURN 
13999 REH i 
14800 POKE 788,(5*16)*10:POKE 53248,K: 
POSITION 8,1 
14885 ? 86;" 

14810 ? 86;" 

14015 ? 86; 11 
14028 ? 86;" 

14825 ? 86; M 
14838 ? 86;" 

14835 ? 86;" 

14640 ? 86;" 

14845 ? 86;" 

14850 ? 86;" SEi 

14855 ? 86;" QSu 

14860 ? 86;" m* 

14865 ? 86;" j QS 
14878 ? 86;" uj EE 
14875 ? 86; 


( SSQuVuVSjjSHYMYHYHY" 
'VVVVU8UVUUUVV888888" 

14615 POSITION 6,23:? 86:■‘ f!fgiEI3 fl «;SC 


15380 RETURN 

15499 REH mW4»i:Mil«i.i:iJ14dU4aK 
15508 POKE 53760,HOsPOKE 53764,55:FOR 
8=8 TO 15:FOR A=0 TO 15:SETC0L0R 4,8, 
A:NEXT A:NEXT 8 

15528 FOR 8=4 TO 0 STEP -l:FOR A=15 TO 
0 STEP -l:FOR 14=1 TO 5:NEXT H:SETCOLO 
R 8,8,A:NEXT A:NEXT 8 
15538 P0$ (V)=82$:P2$(RV)=82$:POKE 5324 
8,8:POKE 53250,0:POKE 53252,0:P0KE 756 
,224 

15548 GRAPHICS 2+16:POSITION 2,2:? 86; 
"CONGRATULATIONS!":POSITION 6,5:? 86;" 
Hi 55ion":POSITION 4,6 
15545 ? 86;"acconpfished" 

15558 POSITION 6,8:? 86i CTftI»R »;PflS 
ITION 5,9:? 86;!POSITION 4, 

10 :? 86; »CTirniN4ii4— > 

15568 FOR A=8 TO 18:SETCOL0R 0,8,A:SET 
COLOR 1,8,A:SETCOLOR 2,3,A:F0R H=1 TO 
10:NEXT H:NEXT A 

15578 FOR 14=1 TO 30O:NEXT H: SOUND 0,0, 
0,0:SOUN» 2,0,0,8:GOTO 10 
19999 REH aH!H:MK 

28080 POSITION 1,5:? 86;"_ 

-":POSITION 1,7:? 86;"_ 


14880 RETURN 

14999 REH 

15000 POKE 708,(4*161+18:POKE 53248,H: 
POSITION 8,1 

15085 ? 86: » (Tmroii»!iuiiuuuuui»iiunn{» » 

15018 ? 86 : ' immm&mmmsp 

15015 ? 86;"fflE2EinEfc 

15020 ? 86;"IEE3!Bz 

15825 ? 86; , 1EI3aBz xflEESDB" 

15038 ? tterlEnnSz xHEEDS 1 * 

15035 ? 86;"CnflQz X2EED" 

15040 ? 86;"flfl3z j xflQ" 

15045 ? 86;"Q3z u x!3S" 

15050 ? 86;"vz U XV" 

15855 ? 86;" U 

15860 ? 86;" V 

15865 ? 86;"wj XVZ jvv" 

15078 ? 86;"flQuj juGB" 


28810 POSITION 5,6:? 86;"blackbird":PO 
SITION 3,15:? 86;"COPYRIGHT 1984":P0SI 
TION 4,16:? 86;"PAUL FREEHAN" 

28020 POSITION 0,19:? 86;"PRESS 0H : 
LEVEL ";SKL:POSITION 4,22:? 86;»3j 


20180 POKE 704,15:POKE 706,6O:BH=60:BV 
=48:BV2=128:85=4:CR$=D1$ 

28110 BH=BH+BS:POKE 53248,BH:P0$(BV1=C 
R$:P0$(BV2J=CR$ 

28115 SOUND 8,BH/7,6,2:SOUND l,90-BH/3 
,10,2:POKE 789,(210-8H)*1.5 
28120 IF BH>208 THEN BS=-4:CR$=D2$ 
20130 IF BH<50 THEN BS=4:CR$=D1$ 

20148 IF PEEK(53279)=6 OR PEEK(644)=8 
THEN GOTO 28508 

20158 IF PEEK(53279) 05 AND PEEK(632) = 
15 THEN GOTO 2O110 
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BIG /LITTLE BY CARL SCHWARTZ 


208 R:- 

201 R: HHaBHOnpHSPR/DD in PILOT 

202 R: designed to introduce size 

283 R: and neasurenent concepts 

284 R: by 

285 R: Carl schvartz 

206 R: in Public ftonain 6/84 

207 R:- 

288 J:*H£LL0 
285 *FILL 
218 *H05T 

211 *LEA5T C:80=?\24i 

212 C:8A=?\25 

213 C:8B=?\25 

214 C:8C=?\25 

215 C:8D=?\25 

215 J(8A=881 * €SIA=tlC3 * (8A=801 :*H05T 
£* is a logical or 

217 J (8B=8C) + (88=801 + (8C=8D) ; *HGST 

218 GR:CLEAR;PEN RED ;GOTO-75,-20;4(D 
RAH38; TURN501; FILL8A 

215 GR:G0T0-35,-20;4(DRAH30;TURN501;FI 
LLItB 

228 GR:GOTO 5,-28;4(DRAH30;TURN501;FI 
LLtKC 

221 GR:GOT0 45,-20;4(0RAH30;TURN50!;FI 
LL8D 

222 TS H B B 

n 

223 T(80=11: (least) 

224 T (80=21;(nost) 

225 A:8F 

225 U(80=21:«0IGGER 

227 U (80=11 :*SHALLER 

228 J(8T<101 :*H0ST 
225 E; 

238 ^SMALLEST C:8U=i 

231 *BIGGEST 

232 C:8A=?\74i 

233 C;#B=?\7+1 

234 C:8C=?\74i 

235 C:8D=?\74i 

238 J(8A=8B14(8A=8C14(8A=8D1:*BIGGEST 
C* is a logical or 

237 J (8B=8C14 (8B=8D14 (8C=801 :*BIGGEST 

238 U:*DRAH 

235 T: O B B 

B 

248 T(8U=81* (80=81 : (biggest! 

241 T(80=21: Most 

242 T(8U>81«(80=81 : (smallest) 

243 T (80=11 1 least 

244 *OV£R2 T(8E>81: Please try again 

245 A:!SF 


248 *BIGL0GIC 

247 J(HU>0) 4(110=1} :*SMALLER 

248 *BIGGER 

245 C(8A>8B1*(8A>8C1*(8A>8D1:8R=1 
(logical choice 1 
258 C(88>8A1*C8B>8C1*(8B>80) :8R=2 

£* is a logical "and" 

251 CC8C>8Al*C8e>8B)*C8C>8D) :8R=3 

252 C(8D>8A1*(8D>8B1*(80>8C1:8R=4 

253 J(8U=01 :*ANS 

254 ^SMALLER 

255 C(8A<8B1*(8A<8C!*(8A<8D1:8R=1 

(logical choice 1 
258 C(8B<8A1*(8B<8C1*(8B<801:8R=2 

£* is a logical "and" 

257 C(8C<8A1*(8C<88)*C8C<8D) :8R=3 

258 CC80<8A)*(8D<8B)*C8D<8C) :8R=4 
255 *AN5 

280 U(8R=8F1:«G00D 

281 C:8£=0 

202 c(8r<>8fi:8h=8H4i 

203 J(8R<>8F1 :«0OER2 

204 J (HT<10! * (110=0} :*BIGGEST 

285 E(8T<101*(8O>8! ; 

205 J:*D0N£ 

257 *0RAH 

258 GR:CLEAR (draving nodule 
255 GR:TURMT0 0 

278 GR: GOTO-60, -20; DRAM 8A*18 

271 GR:G0TQ-61,-28;DRAH 8A*18 

272 GR:GOT0-62,-20;DRAH 8A*10 

273 GR:GOT0-63,-2O;DRAH 8A*10 

274 GR:GOT0-64, -20;DRAH 8A*18 

275 GR;GOT0-28,-20;DRAH 8B*10 
275 GR:GOTO-21,-20;DRAH 88*10 

277 GR:G0T0-22,-28;DRAH 8B*10 

278 GR:GOT0-23,-28;DRAH 88*18 
275 GR;60T0-24,-28;DRAH 8B*18 
288 GR:G0TO 28,-20;DRAH 8C*18 

281 GR:G0T0 21,-20;DRAH 8C*18 

282 GR:G0T0 22,-20;DRAH 8C*18 

283 GR:GOT0 23,-28;DRAH 8C*18 

284 GR:G0T0 24,-20;DRAH 8C*10 

285 GR:GOT0 80,-20;DRAH 8D*10 
285 GR:GOT0 61,-28;DRAH 8D*10 

287 GR:GOT0 62,-28;DRAH 8D*18 

288 GRsGOTO 63,-20;DRAH 80*18 
285 GR:GOT0 64,~28;DRAH 8D*18 
258 E: 

251 -- 


252 *HELL0 


BIG/LITTLE 


H5PR/DD PILOT PRO 


253 R: 

RAH 

254 T:HI, I'M A BCT PROGRAN. 

255 : 


258 :Hhat 1 s your nane? 

257 A:$NAHE 

258 GRiQUIT 


255 T: 

380 T: LETS GO, $NAME 

381 T:PICK A PROGRAH 


382 : 

383 : 
out 
11 

304 : 

385 : 

21 

388 : 

307 \ 

ne 

31 

308 : 

305 : 

41 

318 : 
311 : 
sure 
51 


l EBSSSBi Pith the biggest one 
of 4 choices (press 


2 iftifti Hhich one is big? 


(press 


Pick the snallest o 
(press 


;4 BiitW Pick the snaller one 

(press 


5 HitetMiail Use a "ruler" to nea 
the length of a line (press 


312 : 


313 :6 


MGRE/LE55 


Pick the right one 


(press 

61 

314 A:8I 

315 M:l,2,3,4,5,5 

315 JH:*BIGGEST,*BIG,*5HALLE5T,*LITTLE 
,«HEASURE,*FILL 

317 JN:*HELL0 

318 E: 

315 R:- 


328 *LITTLE C:8U=i 

321 *BIG (nake up 2 nunbers 

322 C:8H=?\5*2 

323 C:8L=?\5+2 

324 J(8L=8H1:*BIG (redo if sane size 

325 C:8N=8L*10 

326 C:80=8N*18 

327 GR:CLEAR (turtle draws.. 

328 GR:TURNT0 56 

325 GR:G0T0-65,-28;DRAH 8N 

330 GR:G0T0-65,-15;DRAH 8N 

331 GR:G0T0-65,-18;DRAH 8N 

332 GR:GOTO-05,-17;DRAH 8N 

333 GR:G0T0-45+8N,-20;DRAH 80 

334 GR:GOT0-454181,-15;DRAH 80 

335 GR:G0T0-4548N,-18;DRAH 80 

336 GR:G0T0-45+8N,-17;DRAH 80 

337 C:8F=1 
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BIG /LITTLE 


3J8 *ops TCllE>03:try again ,$NAME 
339 T: n B 

348 C CftF=03 :mi=m+i 

341 T CftU=83: BIG a OP 2) ? \ 

342 TOSU>83: LITTLE Cl or 2) ? \ 

343 A:ttf [accepts answer 

344 MCttU=83:l 

345 HCItU>0):2 

346 CY.m=BL-mi CUR if 1 is picked 

347 CN:HRmK-ltL CttR if 2 is picked 

346 C:#E=8 

349 C(HR<0) :ltE=ftE+l 

350 CC1tft<03:1M=1tM+l 

351 JCftR<83;*0P5 [junp if wrong 

352 jatF=03:*OPS Cor return onlg 

353 U:*GOOD 

354 JC8T<103:*BIG 

355 ft:- 

356 #DONE S0:#Z 

357 C:8Z=C10-mO«10 

356 T:$NAME, MISSED UH and got ItZ Xgli 

SIB ^ 

359 UCitMOO) :*LES50N 
A ME 

361 PA:150 

362 JCltM=03 :*REMARD 

363 C:8Q=ltQ4l 

364 E: 

365 ft:- 

366 *G0OD J(JtT)9 3 RONE 

367 T.GOOD ANSMER 
366 C:8T=#T*1 

369 C:ttS-0 

370 *L00P 50:85 

371 , 0:85=85+1 

372 , JC85<31):«L0OP 

373 SO: 

374 E: 

375 ft:- 

376 ^MEASURE EOtQ>83: 

377 C:8M=?\641 

378 C:80=8M*15 

379 6R:CLEAR 

388 6R:TIIRMT0 98 Choriz 

381 C:#V=?\7*18-15 

382 GR:G0T0-65,8V RAH 80 

383 GR:GOT0-65,*V+1;0RAH 88 

384 Gft:60T0~65,8V+2;DRAH 80 

385 *REDO EC8Q>1): 

386 TsKSQOSi Cl 2 3 4 5 or 6) 

387 A:8A 

388 M:8M 

389 CC8A<>8fO:8M=8M+l 


398 UYROOD 

391 JN:*TRYMORE 

392 JOtT<113:*MEA5URE 

393 E: 

394 *TRYM0RE T:TRY AGAIN $NAME 

395 PA:30 

396 JREDO 

397 ft:- 

398 *RENAR0 Gft:QUIT 

399 T:0K, $NAME, LET5 PLAY A BRAKING G 
AME 

488 : 

481 : 

482 : PICK A N UMBER 1, 2, OR 3,$NAME 

483 T:MBK!!I3HH^ 

484 : 

405 :1 *TREE 
486 : 

407 :2 *SPIRAL 
488 : 

469 : 

418 :3 *TURTLEDRAH 

411 : 

412 :4 ^SURPRISE 

413 : 

414 t 

415 : 

416 : loan 3T>ra?«iUfHn 

417 C:8Q=8Q4l 

418 T:PICK THE NUMBER OF YOUR CHOICE 

419 A:8C 

428 JCJtC=23:*SPIRAL 

421 JOfC=33:«TURTLEDRAM 

422 JC8C)3):*5URPRI5E 

423 R:- 

424 *TREE C:8P=?\12 

425 GR:G0T0 -i,-31;TURNT0 0;PEN RED 

426 GR:DRAH 32;G0T01,-31;DRAH32 

427 GR:G0T0 8,~31;TURNT0 8 

428 T: $NAME I 5 I»31 \ 

429 U:*LE5S0N 

430 C:1tL=2*2*2*2*2*2 

431 *BRANCN S0:8L 

432 C:§B712=8P*16+1 [Poke to change c 
olor 

433 C:8L=8L/2 

434 GR:DRAH 8L 

435 R:GRC8L<3):PEN BLUE 

436 6R:TURN -45 

437 PA:5 

438 UC8LOl):*BRANCH 

439 GR:TURN 98 

440 UC8L<)1J:*BRANCH 

441 GR: TURN-45; DRAH-ttL 

442 C:8L=8L«2 


443 E: 

444 -- 

445 ^SPIRAL GR:CLEAR;PEN BLUE 

446 T:TURN C0-223?\ 

447 A:8A 

448 T: $NAME*5 020331 TURN 8A 

\ 

449 U:«LE5S0N 
458 C:8D=8 

451 GR:G0TO 8,18 

452 *DRAKL00P 

453 50:8D 

454 C:8D=8DH 

455 GR;DRAM 8D;TURN90-8A 

456 JC80<70}:*0RAHL00P 

457 E: 

458 U:*LE550N 

459 -- 

468 *TURTLEDRAH GR:CLEAR 

461 C:ttP=8 

462 T:INPUT TURN ANGLE CO-893\ 

463 A:8T 

464 T:INPUT TURTLE LENGTH C9-993V 

465 A:80 

466 T:INPUT TURTLE TRIPS C22-993K 

467 A:8R 

468 PREPETITION 50:8C,8P 

469 C:8C=?\3 CrandoM colors 
478 GR:PENYELLOM 

471 GRC8C=ll:PEN BLUE 

472 GRC8C=2):PEN RED 

473 GR:DRAH8D;TURN180;PEN UP; DRAMNT; 
TURN188 

474 GR:TURN 98;TURN8T;DRAM 1 

475 C:8P=8Pn 

476 JOIR>1tP3 REPETITION 

477 T:$NAME ( 5033100 8TTURN 8DL0NG 8RTR 
IP \ 

478 U:*LESSON 

479 E: 

488 ^SURPRISE [insert gou*r own reward 

481 T:N 

482 P0S:5,5 

483 T:PICK ANOTHER NUMBER, $NAME 

484 PA:100 

485 JREHARD 

486 *LESSON 50: 

487 TCJtI=63 :Most/Least\ 

488 T0tI=13:Big\ 

489 TCttI=23 :Biggest\ 

498 TCftI=33 :Snall\ 

491 T Cltl=4l: Sital lest\ 

492 T C»I=53:Measure\ 

493 E: 
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The ‘C' Duffer 


"You should learn C" my Atari Guru said; "It's almost as fast, flexible 
and powerful as machine language, and nearly as easy to write as BASIC." 
So I took Larry Gold's suggestion and got ACEC, by ace programmer 
Ralph E. Walden, from Librarian Ron Ness {374 Blackfoot, Eugene, OR 
97404). 

And it was true: C is fast (12x faster than Atari BASIC and 7x faster 
than IBM PC BASIC, running BYTE mag's 'Sieve' benchmark), flexible, 
powerful, and easy to write — ONCE YOU KNOW HOW. It's also 
frustrating to learn; none of the books on C really apply to Atari, with 
its special I/O. 

'C' is like a race car engine which you install in the family car. It's a 
C-engine, more or less, but the installation is different in different cars. 
And there is no manual for sports cars — like Atari. You gotta learn from 
your mistakes. Or better, from my mistakes, which is why this is being 
written. 

It took most of my computer time for a week or more before I could 
even see any output from a C program. Not just those I wrote, but even 
the demo on the ACEC disk produced no output on my screen. 

Lesson #1: if you get DOS menu's instead of answers try getkeyO as 
a final command to hold the data on your screen. Otherwise it can be 
on, and off, in one scan cycle of 1/60 sec! 

Most of the mystery for C duffers is in I/O, like how to get a simple 
number into your Atari, and then get something recognisable back out. 
The full-bore C's have scanf(), a command or function which accepts 
formatted input. We don't have this, tho you could write the code for 
this and add it to your own C — it can be customized, like FORTH. We 
have to work with simpler tools, at least initially. Functions like getkeyO 
getcharO or getsO which read in a keystroke, character code or string 
respectively are rather like BASIC's GET or INPUT commands. 

Here is one of the first C routines I wrote which actually let me enter 
numbers, do something with them, and then spit out a result: 


The remarks between the /* */ pairs are not part of the code, and if 
you copy and compile this mini-program they can be left out. But be 
careful not to leave out anything else, like a ';' or you'll get an error 
message (not just a number as in BASIC) when you compile. 

This source code was written with Atari's Assembler-Editor. Onr 
ACEC's several good points is it can accept line-numbered code. You c 
also use Atariwriter (no line numbers) or other text editors, but you must^ 
avoid header info which will confuse the C compiler. To use Atariwriter 
I start with a dummy line loaded from disk, which avoids the header 
problem: 

My ugly duckling program let me experiment with the keyboard input 
process; to my surprise ACEC will let you enter a number like 1.23456E3. 
It's a surprise because on many big C machines it takes a special bit 
of programming to make this notation work. Using integer math, fractions 
are dropped so the above number enters as 1234. Next time we will use 
another of ACEC's goodies, floating point math, which many bigger C's 
don't provide. See you next month! 

— Dick Barkley, Acting President 
(He was nominated at our last meeting. As our former president had to 
resign for personal reasons, and with the concurrence of our vice 
president, Dick Barkley is "acting president" until the election at the May 
meeting. — Ed.) 


FID CON'T 


addr(a)=8 


10 /* REAO n NUMBERS, SUM THEM */ 
20 /* AND TAKE THEIR AVERAGES */ 
30 /* WITH INTEGER MATH */ 
40 /* */ 

50 main() $( 

60 char *str; /*A char.string*/ 

70 int i,a,b,c;/*and 4 integers*/ 
80 a=b=c=i=0;/*are declared.*/ 

90 for(;;) $( /*Endless loop*/ 

0100 printf("Enter #: "); 

0110 gets(str); /*Enter a no.!*/ 
0120 a*a + val(str),++i; /*sum*/ 
0130 b*a/i; /*integer division*/ 
0140 c*a£i; /*get remainder*/ 
0150 printf("sum* £d",a); 

0160 printf(" n* Jtd",i); 

0170 printf(" ave* 3Cd",b); 

0180 printf(" mod* 5kJ±n",c); 

0190 $) 

0200 $) 


BLACKBIRD 


22028 POKE 53761,4:FOR A=M TO 210 STEP 
3:POKE 712,14.-POKE 53256,1:P0$(AJ=03$ 
:F0R H=1 TO 5:NEXT H:P0KE 712,0 
22030 P8$(A)=01$:FOR M=1 TO 3:NEXT M:P 
0KE 53256,0:P0$(A1=D2$:F0R M=1 TO 3:NE 
XT H:NEXT A 

22040 SOUND 0,0,8,8:P0$(A1=B2$:P2$(RV) 
=02$:POKE 53240,0:POKE 53250,8:P0KE 53 
252,0:FOR 14=1 TO 300:NEXT H 
22050 POKE 756,224:GOTO 10 

22999 REM {JiMlfcMEi 

23000 SETC0L0R 4,10,0:POKE 764,255:F0R 
K=1 TO 100:NEXT N 

23010 IF PEEK(644)=0 OR STICKC0J<>15 0 
R PEEKC764J<>255 THEN SETC0L0R 4,0,0:P 
0KE 764,255:GOTO 105 
23020 GOTO 23818 

23499 REM 

23500 P0$(V1=CR$iPOKE 53248,H:POKE 532 


00 

Graphics (8) 

FOR a=8 TO 65 
00 

IF nark(al=l THEN 
Print("Reading File: ") 
c =direc torg+1ength*a 
6 et_filena*e(c) 

Readfile(a) 

IF flag=l THEN a==-l flag=0 
FI 
00 

Dump( a) 

RETURN 

PR0C FIDO 
BYTE keg=764 
00 

keg=255 

HenuC) 


78,1:GOTO 23010 

20152 5KL=SKL+1:IF SKL>3 THEN 5KL=i 
20155 POSITION 18,19:? N6;SKI:GOTO 201 
10 

20500 P0$(BV)=8$:SETC0L0R 1,8,0;SETC0L 
OR 0,0,0:SETCOLOR 3,O,O:SETC0LOR 2,8,8 
:CR$=01$:SOUND O,O,0,0:SOUNO 1,0,0,8 
20510 RS=SKL+3:RETURN 

21999 REM E«,'MK 

22000 FOR A=8 TO 8:POKE 704,(2*161+10- 
A:POKE 712,14:0=0+3:POKE 53256,i:P8$(0 
1=03$:FOR M=1 TO 5:NEXT M:P0$(01=D1$ 

22010 POKE 712,0:P0KE 53760,50+A*15:P0 
KE 53761,14-A:FOR M=1 TO 3:NEXT H:P0KE 

53256,0:P0$(V)=02$:FOR H=1 TO 3 
22015 NEXT H:NEXT A 13 



MHILE key=255 
0O 

BlipCJ 

FOR c=i TO 8808 
00 
00 

00 

choice=GetKeyO 

choice==-48 

IF choice=5 THER CheckformatO 
ELSEIF Choicest THER CopyO 
ELSEIF Ch0iC6>l AR0 ChOice<5 THER 
Executed 
FI 

00 

RETURR 


ACTION! ERRORS? 

(reprint: SBACE, April 1985) 

i a m C J!? N! HaS S ° me V ® ry powerful error trapping capabilities of which 
' ™"° t s . ure everyone is aware. This information is in the Action! user 
manual, if you recognize it when you see it. 

^ S !r V ° u .'! ave the TRAP stat ement so when an I/O error occurs, 
V in i /TH the . Program in an attempt to recover from the error. 

In Action! there is no TRAP statement or KEY WORD. Action! takes 

thJmTJn a v Ve , Ct °; i t ,o 0U9h Which the Action! program jumps whenever 
there is any kind of I/O error. The result is to return you back to the Action! 

error'procedura “ d0 " Ch "* > the ~ t0 P° int V°- own 


Example: 

PROC indaterr(BYTE errcode) 

;this will declare your 
;error routine, errcode 
;is the variable which is 
;passed to your routine 
;to tell you what error 
;has occured 

;your code goes here 

RETURN ;gets you back to 
;where the error 
;occured 
PROC indatO 

;this is your routine for 
;getting data, indaterr 
:will handle any errors which 
;occur here 

CARD temperr ;hold the old 
;error address so it can 
;be restored when you no 
;longer need to trap in 
;indat 

temperr=Error ;this saves the 
;old error handling addr 
Error = indaterr 
;this will set the error 
;vector to point to your 
;error routine 

;the rest of your code 
;goes here 

Error=temperr 


;this restores the old 
;error vector 
;this way you can have 
;many error trapping 
routines to handle 
different PROC and also 
;you must restore this 
;to its original value 
;before returning to 
;the ACTION! monitor 

— J. “Polymorphic" Patchellt 


BUMPAS REVIEWS 

Super-Text Professional Word Processor (MUSE Software, 347 N. 
Charles St., Baltimore, MD 21201) is a full-function word processor which 
has recently been gaining more attention. We're familiar with MUSE 
Software because of their Wolfenstein series of action adventure games. 
With Super-Text, they have given us a good application. 

The title menu when booted up gives the user the option of using Atari 
DOS to copy a disk or perform formats, etc. From this menu one may 
also run a “System Options" program in order to modify printer 
parameters for the printer you use, and to change editing defaults. The 
first time I tried to set the parameters to match my IDS, I failed. But I 
find the default Epson parameters print the text just fine. I just cannot 
underline or use boldface. 

There are some interesting features here which are not found in other 
word processors I have seen. A string of up to 30-characters can be 
defined and stored in a buffer which is recalled by “Control-.". This can 
save a lot of typing if you have a phrase which occurs often in a text 
file you're preparing. The default string in this buffer is "the". 

A HELP module can be loaded into memory for on-screen help 
information on any one of ten topics. The 14k text buffer is shortened 
when this option is used, however. Search and replace functions are very 
much more powerful than in other word processors for the Atari. These 
searches may be performed either forward or backward through the text. 
The characters "!" and "&" may be used as wildcards (for characters 
and spaces) in a search. 

In addition to the common block operations, the addition of the ability 
to write a defined block to a disk file, or append it to an existing disk 
file is a very powerful feature. Text deletions are also expanded in this 
powerful program. A line delete occurs from the cursor to the end of 
the line. The user may delete individual characters and words as well 
as the whole screen from the cursor to the end. A 3-key combination 
will delete the entire file from memory. 

The cursor can be moved to any of the 4 screen edges as well as the 
normal Atari 4-direction cursor movement. Two key-strokes will take you 
to the beginning or end of the file. One key-stroke will show information 
on the current status of Super-Text. Here you may check to see if the 
Help and Print modules are in memory. You can also toggle and define 
the character string to be used in "The" Key, as well as toggle "Autolink" 
on and off. The screen will also show if you've made any changes to 
the current file and how many strings were replaced in your last Replace 
operation. The number of bytes used in the file, and the number of free 
bytes remaining will be shown, along with the filename. Form and sheet 
feed may be toggled from this menu without having to re-enter the 
System Options program. The current file may be previewed here to see 
how it will appear on a printed page. 

The Autolink function is a powerful one and helps the user overcome 
some of the limitations of the rather small 14k text buffer. If this function 
is toggled on, the following functions will be performed across multiple 
files automatically, with no manual intervention: Find, Replace, Print, and 
loading the next linked file. A "link" is a filename enclosed by "CTRL- 
Q"s and bars (SHIFT-= ). Links must occur at the top or bottom of a file. 
This position must correspond with the direction indicator ( + or -); i.e., 
if at the top, the direction must be There may not be even a carriage 
return between the link and the next file. Autolink will function across 
multiple disk drives, too. 

Everytime you want to load a file into memory, the directory of the 
selected drive is shown on the screen. D1: is the default, but this may 
be changed. To load a file from the directory, you need only select a 
number displayed next to the filename. Files may also be saved or deleted 
with one key stroke in the same way. 

Multiple line headers and footers may be printed on one page, all pages, 
or on alternating pages. Page numbers may be in the format of "CTRL- 
Nc-p" where "c" is the chapter number, and "p" is the page number. 
A wire-bound manual with more than 150 pages and a Quick Reference 
card are provided. The program comes with two system disks, in case 
you wear one out. If both program disks become damaged, replacements 
may be ordered for $10. If you don't already own a full-featured word 
processor, ask to see this one demonstrated at your local store. 


MAY MEETING 7:30PM 

WED. MAY 8TH SOUTH EUGENE HIGH 
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BREAKTHROUGH IN THE ARDENNES ($40, SSI) is a smootly executed 
simulation of the last major battle on the Western Front during WW2. 
This is a “classic'' simulation, war-gamed by dozens of paper board 
games over the years. The computer version permits both solitaire and 
two-player enjoyment. Each turn is a day of game time. Three scenarios 
include the first and last 7 days, as well as the whole 12 days. 

The map scrolls over several screens containing a 32 by 31 hex grid, 
each of which "represents an area of about two miles". Parts of Germany, 
France, Belgium and Luxembourg are included. Terrain includes clear, 
rough, forest, town, river and road. The depiction of roads is unusual 
— they are indicated by white hexsides. Bridges are a very important 
terrain feature, but they are indicated on the screen only by the white 
hexside of a road. When the bridge is destroyed, it must be rebuilt by 
the player desiring to use it. Players must refer to a plastic-coated play- 
aid map to see bridge sites which may be rebuilt. Only Engineer units 
may rebuild bridges for the Germans. 

Maneuver elements include battalions, regiments and divisions. Units 
belonging to the same formations may be combined or broken down into 
separate units. While there are only 12 turns, each turn has 12 phases. 
The program performs very quickly, and players are offered the option 
to save a game in progress at several points during a turn. 

Tracing supply lines to a friendly edge of the map is crucial to success 
in the game. Air points are available for ground attack and interdiction 
roles. Artillery and replacement points may be added to ground units. 
Units may enter a "Travel" mode for more rapid movement along roads. 
Units may also fortify positions. Combat is plotted with the option to 
advance into a vacated enemy hex. Weather may affect the movement 
of units. 

The 5 levels of victory conditions are based upon the possession of 
towns on the map. The 7 pages of documentation include a historical 
commentary, notes on strategy and tactics, an Order of Battle Chart, 
and some examples of play. A novice to the hobby of playing historical 
simulations might enjoy this one. For those of intermediate or expert skill, 
this game provides subtle challenges. 

VISUALIZER the graphics management system and electronic slide 
creator/projector ($50, Maximus, Inc.) doesn't sound like another drawing 
program — and it isn't. The name indicates what it has which is lacking 
in other drawing programs. The user can create and save graphics 
screens of one's own design. 

In addition, text may be put right into the design of the screen, or in 
a caption. In addition to normal Atari text, one may select from among 
Tall, Wide, Italic, Shadow and Striped text. Upper and lower case and 
Inverse text is avaiable in all modes. You can also use a character editor 
(not provided) to create a custom text font for your use. 

Drawing is done by joystick, and the text window shows a menu of 
functions: Animation, Border, Circle, Diagonal Drawing, Erase, Fill, New 
Colors, Load Slide (screen). Merge Slide, New Font, Oval, Paint, 
Rectangle, Save Slide, Text (in graphics window), Utilities (including a 
disk directory of slides and character sets, rename file, delete file, format 
disk). Caption (add text window to screen), run Slide Show program. 

The spacebar toggles one of two menus on the screen at any time 
while drawing a screen. A Help function will give you abbreviated 
instructions at any time. 

The Show Slides program is where this package really shines. The 
menu on this program provides an exit back to the drawing program as 
well as the ability to sort a directory list of screens into the desired order 
and show them. This presort file may be saved. The pace of the slide 
show can be set with a timer function for automatic running. The user 
may manually show the slides if desired. When the automatic timer is 
running, any slide can be held on the screen for extended viewing. An 
arrow pointer can be toggled on and off to accent a slide presentation. 

The animation function of the drawing program offers 6 options: 
switching 1, 2, or 3 colors; Marqee; Sparkle; and Rainbow. These last 
three options provide different ways to rotate colors on a screen. There 
is a jigsaw game which scrambles a slide into 25 pieces which you 
reassemble with the joystick. The score depends upon elapsed time and 
the number of pieces correctly placed. SELECT shows the solution, but 
speeds up the clock; OPTION unscrambles the picture automatically. 
START restarts the game. 

The program provides the ability to print screens to Epson or C.ltoh 
type printers. The Visualizer package comes with a cassette tape and 
instructions for synchronizing audio effects or narration to the slide show. 
This requires an audio cassette recorder and a specially designed cable, 
as well as an Atari 810 or 1010 program recorder. Instructions for making 
the cable are included. 

The 40-page manual provides a BASIC subroutine for using a screen 
in a program of your own design. There is an 800 number to call, a 
Consumer Hotline. The user may also obtain a data cable for 
synchronizing narration, instead of making it oneself, by calling this 
number. 

Most drawing programs are nice, but you are left with your drawings 
and nowhere to go with them. This program is as powerful as any 
drawing program, but gives you several practical things you can do with 
the screens once drawn. 


HOMEPAK ($50, Batteries Included) gives the user the most value per 
dollar for any home applications package I've seen. It's three programs 
integrated into one menu system. HomeText, HomeFind and HomeTerm 
may all share the same data files. All three programs use a custom 
character font for displaying text which is pleasingly different from the 
usual Atari set, and yet easy to read. Multiple drives are supported, and 
files can be read and written on double density. 

HomeText is an amazingly powerful word processor offering many 
features found on more expensive packages. The screen in the editing 
mode defaults to a pleasant green, but the screen color can be changed. 
In addition to the Atari cursor arrow controls, you can quickly move to 
top or bottom of the text file. Two key-strokes can move the cursor to 
the top, bottom and middle left of a screen, as well as to the beginning 
or end of a line. 

The Atari key toggles the insert mode, so inverse characters don't seem 
to be available. Blocks can be moved, copied and deleted. Search and 
replace functions are implemented. A print preview option enables the 
user to see how the text will appear on a printed page — sort of. The 
screen shows dots and colors to show the location of lines of text and 
whether they are bold, extended or underlined. 

The text buffer is less than 7k, so there's not a lot of space in which 
to work. But an "include" function can link together more than one file 
for printing. There's an elegant way to use unsupported printers with 
this program. A menu window pops on the screen into which you type 
the decimal ASCII code for feature desired. The program will print 
multiple line headers and footers, with page numbers. 

This program is excellent for the occasional user of a word processor 
who might forget, from time to time, the commands to use. Well, you 
don't have to go back to the documentation for another course in word 
processing. The program is menu driven at every step of the way. For 
someone using the program every day, these menus might be 
bothersome. The documentation explains how to short-circuit some of 
the menus, so the authors recognize the problem. 

HomeFind is a filing program which doesn't require the user to study 
a manual to learn how to set up database fields. Data is entered in a 
common-sense manner upon what looks like an editing screen in a word 
processor. Each entry can contain up to four elements which total less 
than 144 characters. No element may contain more than 80. This is 
generous enough for most small filing jobs such as mailing lists. The only 
concession to "fields" one must make is the use of's after two of the 
elements, and a "bar" to denote a comment field. An apostrophe may 
be used to replace an entire string ending in's to repeat a previously 
used string. 

Data may be recalled merely by typing a string (less the's) equal to 
any of the first three elements in an entry. Multiple criteria may also be 
used. Data files to and from HomeText may be merged. HomeFind data 
disks may not contain any other files. 

HomeTerm is the star of this package. This communications program 
is as good as any on the market for the Atari. It supporst 1200 baud. 
In addition to the usual communications modes (ASCII, ATASCII and 
XModem), it also supports the Videx mode used on CompuServe. The 
default green screen color may be changed. Text and screen brightness 
may also be controlled. 

When text is displayed on the screen, a word-wrap function may be 
toggled on and off. Word-wrap makes the text easier to read since lines 
won't break words up in the middle. An editing window can be displayed 
during communication. This window will hold up to 120 characters which 
will not be sent to the other computer until you press RETURN. This is 
handy when in a chat mode, or when using the CB simulator or 
conference functions on CompuServe. Without it, sometimes you'll miss 
what others are saying while you're typing a response. 

You can open a "capture" buffer with the OPTION key while on the 
screen displaying the data you want to capture. You don't need to escape 
to some menu to open the buffer. Handy DOS functions are accessible 
from within HomeTerm to read directories, delete, rename, lock & unlock 
files, copy, and format disks. A 24 hour real-time clock can be set to 
keep track of on-line time. "Macros" can be written and even linked 
together to automate dialing and logging sequences. Configuration files 
can be saved to disk which contain the current list of macros, as well 
as choices of baud rate, screen color and brightness, key click, duplex 
mode and translation type. 

The documentation describes how to use the Atari 835/1030 and MPP 
modems. There is also an 8-page article by Ron Luks of CompuServe 
describing how to use CompuServe's SIG*Atari. HomeTerm alone makes 
HomePak worth the purchase price, in my opinion. 

— Jim Bumpas, Co-Editor 


15 



Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club and 
user's group with no connection to Atari Corp. We are a group interested 
in educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the ACE 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


**Acting President-Dick Barkley, 2907 Wingate, Eugene, OR 97405 

... n , 503-344-5843 

Vice Pres-Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 

... .. „ J 503-686-1490 

Librarians-Ron and Aaron Ness, 374 Blackfoot, Eugene, Or 97404 

_ ^ (503)689-7106. 

Editors Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 

503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 

c D A _ r 503-484-9925 

E.R.A.C.E. (Education SIG Editor)-Nora Young, 105 Hansen Lane, Eugene, 

Or 97404 /503-688-1458 

Send 50c stamps or coin ($1 overseas) to the Ness' for the new, updated 
ACE Library List-new in May 84 ! 

Bulletin Board 

(503) 343-4352 


On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equippedI 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives, an Epson MX80 printer, a MicroBits 1100E 
Modem; running the FoReM Bulletin Board software distributed by 
MicroBits. 


Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 

Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


Atari 

Computer, 

(Enthusiasts 

3662 Vine Maple Dr. £uoene OR 97405 







TYPESETTING 

FROM YOUR COMPUTER 

ATARI OWNERS: If you. have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes ‘‘on line:’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 



30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 


Jim Carr, Valley Soft 
2660 S.WTjSeArrfiond - 
Corvatfi 6^ OR" 9 73$3\ 
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